home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1999 November / cd joystick no109 novembre 1999.iso / Data / sharewares / utilitaires / XQXSET50.ZIP / _SETUP.1 / XQ IE URLs 1.xpl < prev    next >
Text File  |  1999-07-17  |  3KB  |  82 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="3"
  4. "UIPATH"="Internet\Internet Explorer\Appearance"
  5. "NAME"="URLs Options"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.3"
  8. "TEXT 1"="Search Page"
  9. "TEXT 2"="Toolbar Search"
  10. "TEXT 3"="Add Radio Station"
  11. "DESCRIPTION 1"="With the URL for "Page" you can change the URL that will be opened if you select "Start"|"Search"|"The web" or click "Go to"|"Seach page" inside Internet Explorer."
  12. "DESCRIPTION 2"="With the URL for "Toolbar" you can change the URL that will be opened if you click the Search Button on the toolbar of Internet Explorer."
  13. "DESCRIPTION 3"="With the URL for "Add Radio Station" you can change the URL that will be displayed if you click the "Radio station Guide" button on the "Radio" toolbar (default is http://webevents.microsoft.com/radiobar.asp)."
  14. "DESCRIPTION 4"="For all entries, you can either select a local HTML file or enter an URL directly, like http://www.hotbot.com."
  15. "DESCRIPTION 5"="NOTE: To have the default URLs restore, clear the fields."
  16. "AUTHOR"="Xteq Systems"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  19.  
  20.  
  21.  
  22. sP3="HKLM\SOFTWARE\Policies\Microsoft\WindowsMediaPlayer\"
  23. sV3="DefaultURLFindNewStations" 'string - "http://webevents.microsoft.com/radiobar.asp"
  24.  
  25. Sub Plugin_Initialize 
  26.  if RegPathExists("HKCU\Software\Microsoft\Internet Explorer") then
  27.   s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  28.   SetUIElement 1,s
  29.  
  30.   s=RegReadValue("HKLM\Software\Microsoft\Internet Explorer\Main\Search Bar")
  31.   SetUIElement 2,s
  32.  
  33.   s=RegReadValue(SP3 & sV3)
  34.   SetUIElement 3,s
  35.  else
  36.   Disable
  37.  end if
  38. End Sub
  39.  
  40.  
  41. Sub Plugin_CheckData(ElementIndex)
  42. End Sub
  43.  
  44.  
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  s=GetUIElement(1)
  48.  if len(s)>0 then
  49.     Call RegWriteValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page",s,1)
  50.  else
  51.     s=RegReadValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  52.     if IsEmpty(s)=false then Call RegDeleteValue("HKCU\Software\Microsoft\Internet Explorer\Main\Search Page")
  53.  end if
  54.  
  55.  
  56.  s=GetUIElement(2)
  57.  if len(s)>0 then
  58.     Call RegWriteValue("HKLM\Software\Microsoft\Internet Explorer\Main\Search Bar",s,1)
  59.  else
  60.     s=RegReadValue("HKLM\Software\Microsoft\Internet Explorer\Main\Search Bar")
  61.     if IsEmpty(s)=false then Call RegDeleteValue("HKLM\Software\Microsoft\Internet Explorer\Main\Search Bar")
  62.  end if
  63.  
  64.  
  65.  s=GetUIElement(3)
  66.  if len(s)>0 then
  67.     Call RegWriteValue(sP3 & sV3,s,1)
  68.  else
  69.     s=RegReadValue(sP3 & sV3)
  70.     if IsEmpty(s)=false then Call RegDeleteValue(sP3 & sV3)
  71.  end if
  72.  
  73.  Call Logoff()
  74. End Sub
  75.  
  76.  
  77. Sub Plugin_Terminate 
  78. End Sub
  79.  
  80.  
  81.  
  82.